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We introduce here some examples of VHDL based digital circuits design for 
Lab work. 


4-Bit Adder/Subtractor 


Bx A, B : A 2 B, A, Bo A 0 



--XOR gate VHDL code 
Library ieee; 

Use ieee.std_logic_1164.all; 

Entity xor_gate is 
Port( A, B: in stdlogic; 

F: out std logic); 

End xor_gate; 

Architecture xorjbehav of xor_gate is 
Begin 

F<= AxorB; 

End xorjbehav; 

-Full adder VHDL code 
Library ieee; 

Use ieee.std_logic_1164.all; 

Entity FA is 

Port( X, Y,Cin: in std logic; 

Sum,Cout: out std logic); 

End FA; 

Architecture FAJbehav of FA is 
Begin 

Sum <= (X xor Y) xor Cin; 
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Cout <= (X and Y) or( (X xor Y) and Cin); 

End FAJbehav; 

--Top level 4-bit AdderSubtractor 

Library ieee; 

Use ieee.std_logic_1164.all; 

Entity Addsub is 
Port( M: in stdlogic; 

A, B: in std_logic_vector(3 downto 0); 

Sum: out std_logic_vector(3 downto 0); 
Carry, V: out std_logic); 

End Addsub; 

Architecture Addsub_Sruct of Addsub is 
Component xor_gate is 
Port( A, B: in std logic; 

F: out std logic); 

End component; 

Component FA is 

Port( X, Y,Cin: in std_logic; 

Sum,Cout: out std logic); 

End component; 

Signal C :std_logic_vector(4 downto 1); 

Signal temp: std_logic_vector(3 downto 0); 

Begin 

XG1: xor_gate port map (M, B(0),temp(0)); 

XG2: xor_gate port map (M, B(l),temp(l)); 
XG3:xor_gate port map (M, B(2),temp(2)); 

XG4: xor_gate port map (M, B(3),temp(3)); 

FAO: FA port map (A(0), temp(0), M, Sum(0),C(l)); 
FA1: FA port map (A(l), temp(l), C(l), Sum(l),C(2)); 
FA2: FA port map (A(2), temp(2), C(2), Sum(2),C(3)); 
FA3: FA port map (A(3), temp(3), C(3), Sum(3),C(4)); 

V <= C(3) xor C(4); 

Carry <= C4; 

End Addsub_Struct; 
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4-to 1 Mux using If statement 

LIBRARY ieee; 


USE ieee.std_logic_1164 .ALL; 

ENTITY mux4 1 IS 


PORT (sO 

IN STD LOGIC; 

si 

IN STD LOGIC; 

inO 

IN STD LOGIC? 

ini 

IN STD LOGIC; 

in2 

IN STD LOGIC; 

in3 

IN STD LOGIC; 

output 
) ; 

END mux4 1; 

OUT STD_LOGIC 

ARCHITECTURE if_example OF 

mux4 1 IS 

BEGIN 


mux: PROCESS (sO, si, inO, ir 

BEGIN 

il, in 3) 

IF ( s0= ' 0 ' AND sl='0' 

THEN 

output <=* inO; 

ELSIF (s0='1 ' AND sl='0' 

THEN 

output <= ini; 

ELSIF ( s0= ' 0 ' AND sl='l' 

THEN 

output <= in2; 

ELSIF (s0='1 ' AND sl='l' 

THEN 

output <= in3; 


ELSE — (sO or si are not 0 or 1) 

output <= 'X'; 

END IF; 


END PROCESS mux; 


END if example; 


4-tol Mux using case statement 

LIBRARY ieee; 


USE ieee.std logic_ll64. ALL; — Package declaration . 

ENTITY mux4 1 IS 


PORT (sO 

IN STD LOGIC? 

si 

IN STD LOGIC? 

inO 

IN STD LOGIC; 

iat 

IN STD LOGIC? 

in2 

IN STD LOGIC; 

i n3 

IN STD LOGIC? 

output 

OUT STD LOGIC 

END mux4 1; 
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entity encoder_using_if is 
port ( 

enable :in std_logic; — Enable for the encoder 

encoder_in tfyi: std_logic_vector (15 downto 0) ; -- 16-bit 'jgput 

binary_out :out std_logic_vector (3 downto 0) --4 bit binary 

Output 

) ; 

end entity; 

architecture behavior of encoder_using_if is 
begin 

process (enable, encoder_in) begin 
binary_out <= "0000"; 
if (enable = '!') theft 


if 

(encoder_ 

in 

4'-X"0002") 

theft 

binary 

_out 


"0001" 

end 

if; 

if 

(encoder 

in 

= X"0004") 

then 

binary 

out 

<= 

"0010" 

end 

if; 

if 

(encoder_ 

1ft 

= X"0008") 

theft, 

binary 

_out 

■m 

"0011" 

end 

if; 

if 

(encoder 

in 

= X"0010") 

then 

binary 

out 

<= 

"0100" 

end 

if; 

if 

(encoder_ 

lb 

= X"0020") 

theft 

binary 

_out 


"0101" 

end 

if; 

if 

(encoder_ 

in 

= X"0040") 

theft 

binary 

_out 


"0110" 

end 

if; 

if 

(encoder 

in 

= X"0080") 

then 

binary 

out 

<= 

"0111" 

end 

if; 

if 

(encoder_ 

ib 

= X"0100") 

theft. 

binary 

_out 


"1000" 

end. 

if; 

if 

(encoder 

in 

= X"0200") 

then 

binary 

out 

<= 

"1001" 

end 

if; 

if 

(encoder_ 

pft 

,'«:X"04 00") 

theft 

binary 

_out 


"1010" 

end 

if; 

if 

(encoder_ 

ift. 

;i»,-X"0800") 

theft 

binary 

_out 


"1011" 

end 

if; 

if 

(encoder 

in 

= X"1000") 

then 

binary 

out 

<= 

"1100" 

end 

if; 

if 

(encoder_ 

fft 

= X"2 000") 

theft 

binary 

_out 


"1101" 

end 

if; 

if 

(encoder 

in 

= X"4000") 

then 

binary 

out 

<= 

"1110" 

end 

if; 

if 

(encoder_ 

in 

= X"8000") 

theft 

binary 

_out 


"1 111” 

end 

if; 


end if; 
end process; 
end architecture; 


16 to 4 Encoder - Using case Statement 


-- Design Name : encoder_using_case 

— File Name : encoder_using_case.vhd 

— Function coder using Case 


library ieee; 

use ieee.std_logic_1164.all; 
entity encoder_using_case is 


port ( 




enable 

s'i.-ft. std_logic; 

Enable 

for the encoder 

encoder in 

:in std logic vector 

(15 downto 0); — 

16-bit Input 

bi r.ary_out. 

Output 

:out std_logic_vector 

(3 downto 0) 

4 bit binary 


) ; 

end entity; 
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architecture behavior of encoder_using_case is 


begin 

process 

if 


(enable, encoder_in) begin, 
(enable = '1') then 
case (encoder in) is 


when, 
when 
when 
when 
wheft’ 
when: 
when 
when 
when 
when 
when 
when 
when 
when 
when 
whert/ 
end case; 


X"0002" => 
X"0004" => 
X"0008" => 
X"0010" => 
X"0020" => 
X"0040" => 
X"0080" => 
X"0100" => 
X"0200" => 
X"0400" => 
X"0800" => 
X"1000" => 
X"2000" => 
X"4000" => 
X"8000" => 
others => 


binary_oute 

binary_out 

binary_out 

binary_out 

binary_outii 

binary_out; 

binary_out 

binary_out 

binary_out 

binary_out 

binary_out 

binary_out 

binary_out 

binary_out 

binary_out 

binary_out: 


end if; 
end process; 
end architecrure; 


" 0001 " 

"0010" 

"0011" 

"0100" 

"0101" 

"0110" 

" 0111 " 

"1000" 

"1001" 

"1010" 

" 1011 " 

"1100" 

" 1101 " 

" 1110 " 

" 1111 " 

" 0000 " 


Priority-Encoder - Using if-else Statement 


— Design Name : pri_encoder_using_if 

-- File Name : pri_encoder_using_if.vhd 

— Function (I *^r.i ■ JShcoder using I# 


library ieee; 

use ieee.std_logic_1164.all; 

entity pri_encoder_using_if is 
port ( 

enable :in std_logic; — Enable fop the encoder 

encoder_in jin std_logic_vector (15 downto 0) ; -- 16-bit-JJfput 
binary_out :out std_logic_vector (3 downto 0) --4 bit binary 

Output 

) ; 

end entity; 

architecture behavior of pri_encoder_using_if is 
begin 

process (enable, encoder_in) begin 
binary_out <= "0000"; 
if (enable = '1') then 
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if (encoder in = 

'XXXXXXXXXXXXXXl0") then 


binary out <= 

"0001"; 



elsif (encoder in 

= "XXXXXXXXXXXXX100") 

then 


binary out <= 

"0010"; 



elsif (encoder in 

= "XXXXXXXXXXXX1000") 

then 


binary out <= 

"0011"; 



elsif (encoder in 

= "XXXXXXXXXXX10000") 

then 


binary out <= 

"0100"; 



elsif (encoder in 

= "XXXXXXXXXX100000") 

then 


binary out <= 

"0101"; 



elsif (encoder in 

= "XXXXXXXXX1000000") 

then 


binary out <= 

"0110"; 



elsif (encoder in 

= "XXXXXXXX10000000") 

then 


binary out <= 

"0111"; 



elsif (encoder in 

= "XXXXXXX100000000") 

then 


binary out <= 

"1000"; 



elsif (encoder in 

= "XXXXXX1000000000") 

then. 


binary out <= 

"1001"; 



elsif (encoder in 

= "XXXXX10000000000") 

then 


binary out <= 

"1010"; 



elsif (encoder in 

= "XXXX100000000000") 

then 


binary out <= 

"1011"; 



elsif (encoder in 

= "XXX1000000000000") 

then 


binary out <= 

"1100"; 



elsif (encoder in 

= "XX10000000000000") 

then 


binary out <= 

"1101"; 



elsif (encoder in 

= "X100000000000000") 

thsft 


binary out <= 

"1110"; 



else 




binary_out <= 

"1111"; 



end if; 




end if; 




end process; 




end architecture; 




Priority Encoder - Using when Statement 



— Design Name : pri encoder 

using when 



-- File Name : pri encoder 

using when.vhd 



— Function : Pri Encoder 

using when-else 



library ieee; 




use ieee.std_logic_1164.all; 



entity pri encoder using when 

is 



port ( 




enable :in std logic; 

Enable 

for the encoder 

encoder in std logic vector (15 downto 

0); — 

16-bit Input 

binary out :out std logic vector (3 downto 

0) 

4 bit binary 

Output 




) ; 

end entity; 




architecture behavior of pri 

encoder using when is 
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binary out ;<= "0000" 

when (enable = '0') else 


"0000" 

when (encoder in 

= "XXXXXXXXXXXXXXX1") 

else 

"0001" 

when (encoder in 

= "XXXXXXXXXXXXXX10") 

else 

"0010" 

when (encoder in 

= "XXXXXXXXXXXXX100") 

else 

"0011" 

when (encoder in 

= "XXXXXXXXXXXX1000") 

else 

"0100" 

when (encoder in 

= "XXXXXXXXXXX10000") 

else 

"0101" 

when (encoder in 

= "XXXXXXXXXX100000") 

else 

"0110" 

when (encoder in 

= "XXXXXXXXX1000000") 

else 

"0111" 

when (encoder in 

= "XXXXXXXX10000000") 

else 

"1000" 

when (encoder in 

= "XXXXXXX100000000") 

else 

"1001" 

when (encoder in 

= "XXXXXX1000000000") 

else 

"1010" 

when (encoder in 

= "XXXXX10000000000") 

else 

"1011" 

when (encoder in 

= "XXXX100000000000") 

else 

"1100" 

when (encoder in 

= "XXX1000000000000") 

else 

"1101" 

when (encoder in 

= "XX10000000000000") 

else 

"1110" 

when (encoder in 

= "X100000000000000") 

else 

"1111" 




end architecture; 




4 to 16 Decoder - Using case Statement 



library ieee; 




use ieee.std logic 1164.all; 



entity decoder using case is 



port ( 




enable : in 

std logic; 

Enable for 

the decoder 

binary in : in 

std logic vector 

(3 downto 0) ; — 4-bit Input 

decoder_out : out 

std_logic_vector 

(15 downto 0) -- 16- 

bit Output 

) f 

end entity; 




architecture behavior of 

decoder_using_case is 


begin 




process (enable, binary in) begin 



decoder out <= X 

’0000"; 



if (enable = ' 1' 

then- 



case (binary 

in) is 



when X"0 

' => decoder out 

<= X"0001"; 


when X"1 

' => decoder out 

<= X " 0 0 0 2 " ; 


when X"2 

' => decoder out 

<= X " 0 0 0 4 " ; 


when X"3 

' => decoder out 

<= X"0008"; 


when X"4 

' => decoder out 

<= X"0010"; 


when X"5 

' => decoder out 

<= X"0020" ; 


when X"6 

' => decoder out 

<= X"0040"; 


when X"7 

' => decoder out 

<= X"0080" ; 


when X"8 

' => decoder out 

<= X"0100" ; 


when X"9 

' => decoder out 

<= X"0200" ; 


when X"A 

' => decoder out 

<= X"0400" ; 


when X"B 

' => decoder out 

<= X " 0 8 0 0 "; 


when X"C 

' => decoder out 

<= X " 10 0 0 "; 
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when X"D" 
when X’-7,'"' 
when X"F" 



end process; 
end archaifeecture; 


=> decoder_out <= X"2000" 
=> decoder_out <= X"4000" 
=> decoder_out <= X"8000" 
=> decoder_out <= X"0000" 


4 to 16 Decoder using (with-select) statement 


decoder_using_with 
decoder_using_with.vhd 
decoder using wi.th-sel ecu 


library ieee; 

use ieee.std_logic_ll64.all; 

entity decoder_using_select is 
port ( 

enable ;in std_logic; 

binary_in :in std_logic_vector (3 d 
decoder_out :out std_logic_vector (15 

) ; 

end entity; 

architecture behavior of decoder_using_select is 

begin 

with (binary_in) select 
decoder_out <= X"0001" when X"0", 

X"0002" when X"l", 

X"0004" when X"2", 

X"0008" when X"3", 

X"0010" when X"4", 

X"0020" when X"5", 

X"0040" when X"6", 

X"0080" when X"7", 

X"0100" when X"8", 

X"0200" when X"9", 

X"0400" when X"A", 

X"0800" when X"B", 

X"1000" when X"C", 

X"2000" when X"D", 

X"4000" when X"E", 

X"8000" when X"F", 

X"0000" when others; 

end architecture; 


■ Enable for the decode 
.ownto 0) ; — 4-bit input 
downto 0) — 16-bit output 
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A Flip-flop is the basic element which is used to store information of one bit. Flip- 
flops have their content change either at the rising or falling edge of the enable 
signal(usually the controlling clock signal). 

There are basically four main types of flip-flops: 

1. SR Flip-flop 

2. D Flip-flop 

3. JK Flip-flop 

4. T Flip-flop. 


1. SR FLIP-FLOP VHDL Code : 

A SR flip flop used in digital electronics will provide the results in a similar 
manner to the JK flip flop and this is the reason why the vhdl codes for 
these two flipflops are similar in nature. 

Given below is a behavioral approach of writing the code for a SR Flip-flop. 


CLR 



library ieee; 

use ieee. std_logic_l 164.all; 
use ieee. std_logic_arith.all; 
use ieee. std_logic_unsigned.all; 
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entity SR-FF is 

PORT( S,R,CLOCK,CLR,PRESET: in stdjogic; 

Q, QBAR: out stdjogic); 

end SR-FF; 

Architecture behavioral of SR-FF is 
begin 

PI: PROCESS(CLOCK,CLR,PRESET) 

variable x: stdjogic; 

begin 

if(CLR='0') then 
x:='0'; 

elsif(PRESET='0')then 
x: = 7 

elsif(CLOCK= 7 ' and CLOCK'EVENT) then 

if(S='0' and R='0 ')then 
x: =x; 

elsif(S= 7 ' and R='l ')then 
x:='Z'; 

elsif(S= 'O' and R='l ')then 
x:='0'; 

else 
x: = 7 

end if; 
end if; 

Q<=x; 

QBAR<=not x; 
end PROCESS; 
end behavioral; 

2. D FLIP-FLOP VHDL Code : 

A D flip flop or Delay flip flop gives the same output as the input provided 
and thus the vhdl code is much simpler. 
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Given below is a behavioral approach of writing the vhdl code for a D Flip- 
flop. 



RST 



D 



FLIP-FLOP 

> 

Q 




library ieee; 

use ieee. std_logic_1164.all; 
use ieee. std_logic_arith.all; 
use ieee. stdJ.ogic__unsigned.all; 

entity D-FF is 

PORT( D,CLK,RST: in stdjogic; 

Q: out stdjogic); 

end D-FF; 

architecture behavioral of D-FF is 
begin 

PL- process(RST,CLK) 
begin 

if(RST='F)then 

Q<='0'; 

elsif(CLK= 7 ' and CLK'EVENT) then 
Q<=D; 

end if; end process; 
end behavioral; 
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3. JK FLIP-FLOP VHDL Code : 

Given below is a behavioral approach of writing the code for a JK Flip-flop. 


CLR 



library ieee; 

use ieee. std_logic_1164.all; 
use ieee. std_logic_arith.all; 
use ieee. std_logic_unsigned.all; 

entity JK-FF is 

PORT( J,K,CLK,PRST,CLR: in stdjogic; 

Q, QB: out stdjogic); 

end JK-FF; 

Architecture behavioral of JK-FF is 
begin 

PI: PROCESS(CLK,CLR,PRST) 

variable x: stdjogic; 

begin 

if(CLR='0') then 
x:='0'; 

elsif(PRST=’0')then 
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x:=T; 

elsif(CLK=T and CLK'EVENT) then 

if(J='0' and K='0')then 
x:=x; 

elsif(J=T and K=T)then 
x:= not x; 

elsif(J='0' and K='l')then 
x:='0'; 

else 

x 

end if; 
end if; 

Q<=x; 

QB<=not x; 
end PROCESS; 
end behavioral; 


4. T FLIP-FLOP VHDL Code : 

The T in a t flip flop stands for toggle and this is exactly what this digital 
component does. It simply toggles the value of a particular input. A basic 
not gate will solve the problem in the vhdl code for this element. 

Given below is a behavioral approach of writing the code for a T Flip-flop. 
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library ieee; 

use ieee. std_logic_1164.all; 
use ieee. std_logic_arith.all; 
use ieee. std_logic_unsigned.all; 

entity T-FF is 

PORT( T,CLK,PRST,RST: in stdjogic; 

Q: out stdjogic); 

end T-FF; 

architecture behavioral of T-FF is 
begin 

PI: process(CLK,PRST,RST) 
variable x: stdjogic; 
begin 

if(RST='0') then 
x:='0'; 

elsif(RST=T and PRST='0’) then 
x:=T; 

elsif(CLK=T and CLK'EVENT) then 

if(T='l ')then 

x:= not x; 

end if; 
end if; 

Q<=x; 

end process; 
end behavioral; 
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library ieee; 

use ieee. std_logic_1164 . a||£.f 


entity dlatch_reset is 
port ( 


in std_logic; 
ip. std_logic; 
ip std_logic; 
out std_logic 


) ; 

end entity; 


Data input 
Bpable input 
Reset input 
Q output 


architecture rtl of dlatch_reset is 


begin 

process (en, reset, 
if (reset = 'O' 
q <= 'O'; 
elsif (en = '1' 
q <= data; 

else 

null; 


data) begip 
< ISherf 

; "then 


end if; 
end process; 


end architecture; 


8-bit Parallel to Serial converter 

-- Description 

-- Implements a simple 8-bit parallel to serial converter in VHDL. 
library ieee; 

use ieee.std_logic_1164.all ; 
entity PAR2SER is 

port (DIN : in std_logic_vector (7 downto 0); — input register 
MODE : in std_logic_vector (1 downto 0); -- mode selection 
CLK, RESET : in std_logic; — clock and reset 
SDOUT : out std_logic); -- output data 
end PAR2SER; 

-- purpose: Implement main architecture of PAR2SER 
architecture BEHAVIOR of PAR2SER is 

signal IDATA : std_logic_vector(7 downto 0); -- internal data 
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begin — BEHAVIOR 

— purpose: Main process 
process (CLK, RESET) 
begin -- process 

-- activities triggered by asynchronous reset (active high) 

if RESET = '1' then 
SDOUT <= 'O'; 

IDATA <= "00000000"; 

-- activities triggered by rising edge of clock 
elsif CLK'event and CLK = '1' then 

case MODE is 

when "00" => -- no operation 
null; 

when "01" => -- load operation 
IDATA <= DIN; 

when "10" => -- shift left 
SDOUT <= IDATA(7); 
for mloop in 6 downto 0 loop 
IDATA(mloop+1) <= IDATA(mloop); 
end loop; -- mloop 

when others => -- no operation otherwise 
null; 


end if; 
end process; 
end BEHAVIOR; 


BCD to 7-Seg Decoder 

library IEEE; 

use IEEE.std_logic_1164.all; 
use IEEE.std_logic_unsigned.all; 
entity DISPLAY_DECODER is 

port ( VALUE : in bit_vector(3 downto 0); -- Bit 3 is MSB 
ZERO_BLANK : in bit; 

DISPLAY : out bit_vector(6 downto 0); -- 7 bit signal 
ZERO_BLANK_OUT: out bit); 
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end DISPLAY_DECODER; 

architecture BEHAVIOUR of DISPLAY_DECODER is 
begin 

process (VALUE, ZERO_BLANK) ~ sensitivity list 
begin 

case VALUE is -- case-when statement described how decode is 
- driven based on the value of the input, 
when "0000" => if ZERO_BLANK=T then 
DISPLAY <= "0000000"; 

ZERO_BLANK_OUT<=T; 

else 

DISPLAY <= "1111110"; 
end if; 

when "0001" => DISPLAY <= "0110000"; 
when "0010" => DISPLAY <= "1101101"; 
when "0011" => DISPLAY <= "1111001"; 
when "0100" => DISPLAY <= "0110011"; 
when "0101" => DISPLAY <= "1011011"; 
when "0110" => DISPLAY <= "1011111"; 
when "0111" => DISPLAY <= "1110000"; 
when "1000" => DISPLAY <= "1111111"; 

when OTHERS => DISPLAY <= "1001111"; - when others, an error is specified 
end case; 
end process; 
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end BEHAVIOUR; 

Test bench 

library IEEE; 

use IEEE.std_logic_1164.all; 
use IEEE.std_logic_unsigned.all; 
entity DISPLAY_DECODER_TB is 
end DISPLAY_DECODER_TB; 

architecture ARC_DISPLAY_DECODER_TB of DISPLAY_DECODER_TB is 

signal VALUE : bit_vector(3 downto 0); 

signal ZERO_BLANK : bit; 

signal DISPLAY : bit_vector(6 downto 0); 

signal ZERO_BLANK_OUT : bit; 

component DISPLAY_DECODER 

port ( VALUE : in bit_vector(3 downto 0); 

ZERO_BLANK : in bit; 

DISPLAY : out bit_vector(6 downto 0); 

ZERO_BLANK_OUT : out bit); 

end component; 

begin 

INPUT_VALUES: process 
begin 

ZERO_BLANK <= '1'; 

VALUE <= "0000"; 
wait for 5 ns; 
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ZERO_BLANK <= 'O'; 

VALUE <= "0000"; 
wait for 7 ns; 

ZER0_BLANK<='1'; 

VALUE <= "0010"; 
wait for 12 ns; 

ZERO_BLANK <= 'O'; 

VALUE <= "0100"; 
wait for 12 ns; 

ZERO_BLANK <= 'O'; 

VALUE <= "0110"; 
wait for 7 ns; 

end process INPUT_VALUES; 

Ul: DISPLAY_DECODER 

port map(VALUE, ZERO_BLANK, DISPLAY, ZERO_BLANK_OUT); 
end ARC_DISPLAY_DECODER_TB; 

configuration CFG_DISPLAY_DECODER of DISPLAY_DECODER_TB is 

for ARC_DISPLAY_DECODER_TB 

for Ul:DISPLAY_DECODER use entity 

work.DISPLAY_DECODER(BEHAVIOUR); 

end for; 

end for; 

end CFG_DISPLAY_DECODER; 
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